home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 84 / 084.d81 / cryptic boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  762b  |  23 lines
  1. 3 dv=peek(186):ifdv<8thendv=8
  2. 5 poke53281,.:poke53280,.:print"[147]"
  3. 10 gosub60000
  4. 11 poke214,9:print:printtab(11)"[154][195][210][217][208][212][201][195] [195][210][207][211][211][215][207][210][196]"
  5. 15 print"[159]   [193] [204][207][193][196][211][212][193][210] [208]uzzle for the [212]rolley"
  6. 100 print"[144]load"chr$(34)"pxword"chr$(34)","dv
  7. 110 print"run"
  8. 120 poke631,13:poke632,13:poke633,13:poke198,3
  9. 130 end
  10. 10000 open15,8,15,"s0:cryptic boot":close15:save"0:cryptic boot",8:end
  11. 60000 b9$="                                      "
  12. 60010 poke214,14:print:print"  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][152]"
  13. 60020 fori=0to7:printb9$:next:print"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
  14. 60030 b9$(0)="[195] [210] [217] [208] [212] [201] [195]   8 4"
  15. 60040 b9$(1)="by [198]ender [212]ucker"
  16. 60050 b9$(2)="([195]) 1991 by [211]oftdisk, [201]nc."
  17. 60060 b9$(3)="[208]ublished on [204][207][193][196][211][212][193][210] #84"
  18. 60070 b9$(4)="[211]ubscriptions 1-800-831-2694"
  19. 60080 b9$(5)="[193]ll [210]ights [210]eserved"
  20. 60090 poke214,16:print:fori=0to5:printtab(20-(len(b9$(i))/2))""b9$(i):next
  21. 60099 return
  22. 60999 :
  23.